(outline-next-visible-heading):

When going forward, test outline-invisible-p at start of header.

diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el
index b857615c7a7b930a27339404b567f372971aa704..03281812a4f8639305da58c72164568d42755256 100644 (file)
--- a/lisp/textmodes/outline.el
+++ b/lisp/textmodes/outline.el
@@ -483,7 +483,9 @@ A heading line is one that starts with a `*' (or that
     (while (and (not (eobp))
                (re-search-forward (concat "^\\(?:" outline-regexp "\\)")
                                   nil 'move)
-               (outline-invisible-p)))
+               (save-excursion
+                 (goto-char (match-beginning 0))
+                 (outline-invisible-p))))
     (setq arg (1- arg)))
   (beginning-of-line))